home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / DEMO.TCL < prev    next >
Encoding:
Text File  |  2002-06-27  |  5.7 KB  |  153 lines
  1. #-------------------------------------------------------------------------------
  2. #
  3. #   NOMADS DEMO STARTUP SCRIPT
  4. #
  5. #
  6. #   Aufruf:
  7. #   nsh -run demo.tcl
  8. #
  9. #   WICHTIG ! 
  10. #   Wenn die ENV-Variable NOMADS_HOME nicht gesetzt ist, dann mu▀
  11. #   DAS AKTUELLE ARBEITSDIRECTORY  /nomads sein,
  12. #   weil das Script dieses dann zu NOMADS_HOME erklΣrt !
  13. #
  14. #   created:    26-Jan-99   (Sews Geburtstag) Bernd
  15. #   upd.:       03-May-99
  16. #               18-May-99   floh    data.n wird nach Laden sortiert
  17. #               11-Jun-99   bernd
  18. #               16-Jun-99   floh    diverse Anpassungen an neues Script-
  19. #                                   Interface
  20. #               18-Jun-99   bernd   bugfixes
  21. #               16-Jul-99   bernd
  22. #               29-Jul-99   floh    '/world/viewer.setstate follow' nach
  23. #                                   '/world.opengame'
  24. #               23-Aug-99   bernd   + RADON LABS
  25. #                                   + game_cleanup gekillt
  26. #                                   + game_init in get_gamedata umebannt
  27. #                                   + frontend fenster erscheint nach Verlassen des Spieles wieder
  28. #                                     und man kann ein neues Spiel starten (ganz normal, wie bei allen Spielen)
  29. #               26-Aug-99   bernd   Einzelne Aufrufe hin und hergeschoben, damit alles
  30. #                                   wieder richtig klappt.
  31. #               01-Nov-99   bernd   Developer Variable - damit der Floh im Fenster spielen kann.
  32. #               03-Nov-99   bernd   war noch ein Fehler in der Developer VAriable
  33. #               25-Nov-99   bernd   Input Mapping wird jetzt nicht mehr mehr von 
  34. #                                   Init Handlers aufgerufen sondern per extra source aufruf: source .../input.tcl
  35. #               14-Dec-99   bernd   home wird jetzt aus /sys/share/assigns/home.gets geholt
  36. #               20-Dec-99   floh    + data.n wurde in der Frontend-Loop nicht weggeloescht
  37. #               21-Jan-2000 bernd   TK FRONTEND GEKILLT
  38. #               25-Jan-2000 floh    + Support fuer inialen Ladescreen
  39. #               > EIN JAHR ! <
  40. #               29-Jan-2000 bernd   daytime
  41. #               04-Jan-2000 bernd   host connecting    
  42. #               15-Feb-2000 floh    support for Win2k
  43. #               06-Mrz-2000 bernd   Umbauten Interface
  44. #               15-Oct-2001 floh    sourced jetzt scriptlib.tcl
  45. #               13-Dec-01   floh    source alias.tcl
  46. #
  47. #   (C) 1998-2000 RADON LABS GbR
  48. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  49. #
  50. #-------------------------------------------------------------------------------
  51.  
  52. #-------------------------------------------------------------------------------
  53. #   initialize global variables
  54. #-------------------------------------------------------------------------------
  55.  
  56. # check if started as demo distribution
  57. global runDemoDistro
  58. if {[catch {set test $runDemoDistro} err]} {
  59.     set demoFlag 0
  60. } else {
  61.     set demoFlag 1
  62. }
  63.  
  64. # the devstation flag selects fullscreen vs. windowed mode
  65. if {[catch { set nomads_home $env(NOMADS_HOME) } err]} {
  66.     set devstation 0
  67. } else {
  68.     set devstation 1
  69.     puts "Developer Mode."
  70. }
  71.  
  72. # initialize home and nomads_home variables
  73. puts "Using [/sys/share/assigns/home.gets] as home dir."
  74. set nomads_home [/sys/share/assigns/home.gets]
  75. set home $nomads_home
  76.  
  77. #-------------------------------------------------------------------------------
  78. # Standard-Befehle reinsaugen
  79. #-------------------------------------------------------------------------------
  80. source $nomads_home/bin/nsh.tcl
  81. source $nomads_home/scripts/commands.tcl
  82. source $nomads_home/scripts/envinit.tcl
  83. source $nomads_home/scripts/menuaction.tcl
  84. source $nomads_home/scripts/menu2.tcl
  85. source $nomads_home/scripts/scriptlib.tcl
  86. source $nomads_home/scripts/alias.tcl
  87.  
  88. if {$devstation} {
  89.     # for debugging only
  90.     source $nomads_home/scripts/af_debug.tcl
  91. }
  92.  
  93. #-------------------------------------------------------------------------------
  94. # STANDARD-ASSIGNS
  95. #-------------------------------------------------------------------------------
  96. set libAssign ""
  97. set dataAssign ""
  98. set localeAssign ""
  99. set bookAssign ""
  100. append libAssign $nomads_home data.n/lib/
  101. append dataAssign $nomads_home data.n/
  102. append localeAssign $nomads_home locale/
  103. append bookAssign $nomads_home book/
  104. /sys/servers/file.setassign lib  $libAssign
  105. /sys/servers/file.setassign data $dataAssign
  106. /sys/servers/file.setassign locale $localeAssign
  107. /sys/servers/file.setassign book $bookAssign
  108.  
  109. puts "initializing nebula..."
  110. create_servers
  111. init_servers
  112.  
  113. create_handlers
  114. create_viewer
  115. init_handlers
  116.  
  117. /world.loadprefs
  118. /world.applyprefs
  119. load_mouse_cursor
  120.  
  121. # Input-Event-Mapping
  122. source $nomads_home/scripts/input.tcl
  123.  
  124. #-------------------------------------------------------------------------------
  125. #   Lade Spiel-Daten, allerdings wird vorher das Display geoeffnet
  126. #   und der Ladescreen angezeigt
  127. #-------------------------------------------------------------------------------
  128. /world.opengame
  129. /world.setdayperiod 15800
  130. /world.refreshdisplay
  131.  
  132. get_data
  133.  
  134. #-------------------------------------------------------------------------------
  135. #   Initialize Menu
  136. #-------------------------------------------------------------------------------
  137. source $nomads_home/scripts/newmenu.tcl
  138.  
  139. #-------------------------------------------------------------------------------
  140. #   Spiel starten (kommt zurueck, wenn vom User beendet)
  141. #-------------------------------------------------------------------------------
  142. /world.startgame
  143. /world.closegame
  144.  
  145. kill_handlers
  146. kill_servers
  147.  
  148. puts "thanks for playing..."
  149.  
  150. #-------------------------------------------------------------------------------
  151. #   EOF
  152. #-------------------------------------------------------------------------------
  153.